home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 359 / def / realio.def < prev    next >
Encoding:
Modula Definition  |  1989-01-09  |  1.3 KB  |  39 lines
  1. DEFINITION MODULE RealIO;
  2.  
  3. (*
  4. *    Copyright (c) 1985,1986,1987,1988,1989 by
  5. *    ana-systems, Foster City, California.
  6. *    All Rights Reserved.
  7. *
  8. *    This software is furnished under a license and may be used and copied
  9. *    only  in accordance with  the  terms  of  such  license and  with the
  10. *    inclusion of the above copyright notice.  This software or  any other
  11. *    copies thereof may not be provided or otherwise made available to any
  12. *    other  person.   No title to and ownership of the  software is  herby
  13. *    transferred.
  14. *
  15. *    The information in this software is  subject to change without notice
  16. *    and  should  not be construed as a commitment by ana-systems.   No
  17. *    warranty is implied or expressed.
  18. *
  19. *   SCCID  = "1.1    1/26/86"; 
  20. *)
  21. FROM Files IMPORT File, FileState;
  22. FROM SYSTEM IMPORT WORD;
  23.  
  24. EXPORT QUALIFIED
  25.         ReadReal,
  26.         WriteReal;
  27.  
  28. PROCEDURE ReadReal   (     file   : File ;
  29.                        VAR real   : REAL;
  30.                        VAR success : BOOLEAN;
  31.                        VAR state  : FileState);
  32.  
  33. PROCEDURE WriteReal (     file  : File;
  34.                           real  : REAL;
  35.                           width : CARDINAL;
  36.                        decPlaces: INTEGER;
  37.                      VAR  state : FileState );
  38. END RealIO.
  39.